on checksounds babe
  -- global NUMCURS, NUMZONES
  
  set castbase = d22 + (babe-1)*32
  set tot = 0
  repeat with zo = 0 to 4 -- NUMZONES-1
    set zoname = line (zo+1) of the text of cast a54
    put "  ZONE: " && zoname && zo
    set tot1 = 0
    repeat with i = 1 to 5 -- NUMCURS-1
      set curnam = line (i) of the text of cast a53
      set str = line (i+1) of the text of cast (castbase + zo)
      put "    CURS: " && i && curnam && str
      set nwords = the number of words in str
      set v = integer(word 1 of str)
      set tot1 = tot1 + v
      repeat with wd = 2 to nwords        
        set  cnam = word wd of str
        put "   " & cnam
        puppetsound cnam        
      end repeat
    end repeat
    put "  zone total: " && tot1
    set tot = tot + tot1
  end repeat
  put "babe tot: " && tot
end checksounds

on checkzones babe
  -- global NUMCURS, NUMZONES
  
  set castbase = d22 + (babe-1)*32
  set tot = 0
  repeat with zo = 0 to 4 -- NUMZONES-1
    set zoname = line (zo+1) of the text of cast a54
    set tot1 = 0
    repeat with i = 1 to 5 -- NUMCURS-1
      set curnam = line (i) of the text of cast a53
      set str = line (i+1) of the text of cast (castbase + zo)
      set v = integer(word 1 of str)
      set tot1 = tot1 + v
    end repeat
    put "  ZONE: " && zoname && tot1
    set tot = tot + tot1
  end repeat
  put "babe tot: " && tot
end checkzones

on checkgoodies babe
  -- global NUMCURS, NUMZONES
  
  set castbase = d22 + (babe-1)*32
  set tot = 0
  repeat with i = 1 to 5 -- NUMCURS-1
    set curnam = line (i) of the text of cast a53
    set tot1 = 0
    repeat with zo = 0 to 4 -- NUMZONES-1
      set zoname = line (zo+1) of the text of cast a54
      -- put "  ZONE: " && zoname && zo
      set str = line (i+1) of the text of cast (castbase + zo)
      set v = integer(word 1 of str)
      set tot1 = tot1 + v
    end repeat
    put "CURS: " && curnam && tot1
    set tot = tot + tot1
  end repeat
  put "babe tot: " && tot
end checksounds